home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / keyboard.swg / 0056_Complete Keyboard Unit.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-09-26  |  3.7 KB  |  104 lines
  1. (*
  2. From: ROB PERELMAN
  3. Subj: A COMPLETE Keyboard Unit in ASM
  4. *)
  5.  
  6. UNIT Keyboard;
  7.  
  8. INTERFACE
  9.  
  10.    FUNCTION AltPress: Boolean;
  11.    FUNCTION CapsOn: Boolean;
  12.    FUNCTION CtrlPress: Boolean;
  13.    FUNCTION InsertOn: Boolean;
  14.    FUNCTION LAltPress: Boolean;
  15.    FUNCTION LCtrlPress: Boolean;
  16.    FUNCTION LShiftPress: Boolean;
  17.    FUNCTION NumOn: Boolean;
  18.    FUNCTION RAltPress: Boolean;
  19.    FUNCTION RCtrlPress: Boolean;
  20.    FUNCTION RShiftPress: Boolean;
  21.    FUNCTION ScrollOn: Boolean;
  22.    FUNCTION ShiftPress: Boolean;
  23.    PROCEDURE ClearKbd;
  24.    PROCEDURE PrintScreen;
  25.    PROCEDURE SetCaps (CapsLock: Boolean);
  26.    PROCEDURE SetEnhKbd (Enhanced: Boolean);
  27.    PROCEDURE SetInsert (Ins: Boolean);
  28.    PROCEDURE SetNum (NumLock: Boolean);
  29.    PROCEDURE SetPrtSc (PrtScOn: Boolean);
  30.    PROCEDURE SetScroll (ScrollLock: Boolean);
  31.    PROCEDURE SpeedKey (RepDelay, RepRate: Integer);
  32.    PROCEDURE TypeIn (Keys: String);
  33.  
  34. IMPLEMENTATION
  35.  
  36. {$F+}
  37.  
  38. { the routines are actually in assembly language }
  39.  
  40.    FUNCTION AltPress; external;
  41.    FUNCTION CapsOn; external;
  42.    FUNCTION CtrlPress; external;
  43.    FUNCTION InsertOn; external;
  44.    FUNCTION LAltPress; external;
  45.    FUNCTION LCtrlPress; external;
  46.    FUNCTION LShiftPress; external;
  47.    FUNCTION NumOn; external;
  48.    FUNCTION RAltPress; external;
  49.    FUNCTION RCtrlPress; external;
  50.    FUNCTION RShiftPress; external;
  51.    FUNCTION ScrollOn; external;
  52.    FUNCTION ShiftPress; external;
  53.    PROCEDURE ClearKbd; external;
  54.    PROCEDURE PrintScreen; external;
  55.    PROCEDURE SetCaps; external;
  56.    PROCEDURE SetEnhKbd; external;
  57.    PROCEDURE SetInsert; external;
  58.    PROCEDURE SetNum; external;
  59.    PROCEDURE SetPrtSc; external;
  60.    PROCEDURE SetScroll; external;
  61.    PROCEDURE SpeedKey; external;
  62.    PROCEDURE TypeIn; external;
  63.  
  64. {$L KBD}
  65.  
  66. BEGIN
  67. END.
  68.  
  69. { ---------------------   CUT HERE -----------------------}
  70.  
  71. 1.  CUT THIS OUT TO A SEPARATE FILE.
  72. 2.  Name it KBD.XX.
  73. 3.  Execute : XX3401 D KBD.XX
  74. 4.  KBD.OBJ will be created.
  75.  
  76. Here comes the XX-encoded KBD.OBJ file...
  77.  
  78. *XX3401-001215-010792--68--85-18007---------KBD.OBJ--1-OF--1
  79. U+Y+-qhWN0tVQqrEZUQ+++F1HoF3F7U5+0VT+k6-+RCE6U2++ERHFJF1EJ-HjU++0p-G
  80. GItIIoBGFIJCPE++02ZCIoJGJ2xCAE++0IBIIYlEIYJHImI+++VHFJFEIZFHEqw-++NI
  81. KJ-3GIs2+U+8IoV7FZFEIYJHIy+-++JCJIpDHZo+++hGIoV7FZFEIYJHIuE+++hAIoV7
  82. FZFEIYJHIpA+++ZHFJFHEp7DH2n++E+8H2BIIYlEIYJHIoY+++V1H2J-IYh0F-k+++dG
  83. EpFGH3-GFJBHZU++023AJ3-GFJBH++++0Il-H3FEIYJHIno+++ZGEIlII373IpC4+++4
  84. IoJIHZJBHk2+03B1IYxAH2xCf+++0JB3J2ZCIoJGJ0w-++N1EJ-HHosC+++7IoJIFIt6
  85. Go72rU++03BEFIJ2GoJNw+2+u6U2++0W+R4UsU6-++0o+goKoSXFuB5cUy+-mvE0nFMn
  86. qx1UoC1FotD9h+OmzwoVRTX9h+9B3h5coSW1s+59h+9B3XDPoC1FotD9h-9B3cf2oSW1
  87. s+59h-9B3cf2Uy+-mvE0nFPFu6DU+Qio+goKAxjEsB1UoC1FotD9JJNL9c+y++++REPB
  88. -JxSLQiQ9jwS++1fx9EGnFO8lB5coSXFu6DU+Qio2goKWgHFuB5cUy+-mvE0nFO1s+59
  89. h+9B3XDPoC1EsB1UoC1FotD9JMjg5ch4-XDPXhg9k5E8U+sL-2+TLQc0+6+a3kGzuzFJ
  90. WykSWoM40w-p5Gu+DU+++5EE9gIK++0s3WLB6Gv4-U+++-xRmU6+9c+y++++RTCs3XLB
  91. 6Gu75U++9ck4++0u+++C5vUK7QoV9gM4+++-ux7JWykSWoM4AxiCqkj+R+e+1VQ2U-xR
  92. mU6+U0ML-5zfx3K9v-u9FUMnqsvP0w-o0c+C3kEU5pr8+U0+7VQ2ryjoJMjg5ch4-Uj+
  93. RGkiU1s+++-p5vU3BQoV9cYS+++iX+M++9U37EsTiU++nG2ilUM+++2TLQc0+0u+DU++
  94. +5Hni+IZ9gIK++1B6Gv4-U+++CjVJMjg5ch4-XDPXhg9k5E8U+sL--+TLQc0+6+a3kHj
  95. uzGo+goKAxjFuB5HUy+-0wD9JMjg5cdy06dS-fU3+woK5pr8-+-JWylKJlv3RUMnmTmg
  96. WgWu1k0sE+0Ck9wS+DcaWHsO+9g++8m8s+j+9hRp-2Zo18m4l8h8sCoaWHsQ+DgTLptR
  97. mUE+UDk0RkC+l-+izms++Aw++++++++++++++-sk9W+G6G6X3mEZ7X6l4-YE2lwI3WwF
  98. 9FIg4WgP-kkt+WU2-EM68+c90+on11Ep0k61-+I4-kU70WQbAkooBE6SA0sU2W2W6lQY
  99. 7GMmAFUN2-AT3-Mj2GoJ9-cf4kQA8Fsk9W+G6G6X3mEZ7X6l4-YE2lwI3WwF9FIg4WgP
  100. 8SiQSE12Qp+-KU92UZ+-Kk92v3+-JE92x3+-JU92zZ+-JE930J+-JE933Z+-JU934p+-
  101. K+935Z+-Fk938Z+-JE93TJ+-KU93WZ+-Kk93Xp+-LE93Zp+-J+93bZ+-KU93eJ+-KU93
  102. h3+-Kk93ip+-KU947J+-Lk94IZ+-JU85cUc++Rs0UE++++2+wMc0++-o
  103. ***** END OF XX-BLOCK *****
  104.